home *** CD-ROM | disk | FTP | other *** search
/ The Netherlands - A Compact World / The Netherlands.iso / chapters / 2.2.dxr / Internal_25_importeer text met links voor H2update AJ met verspr.ls < prev    next >
Encoding:
Text File  |  2004-06-10  |  4.1 KB  |  122 lines
  1. property spriteNum, pWoordenlijst
  2. global taalkeuze, tekstkleur, woordenteller, maclist
  3.  
  4. on beginSprite me
  5.   member(sprite(spriteNum).member).boxType = #adjust
  6.   sprite(spriteNum).visibility = 0
  7.   if taalkeuze = VOID then
  8.     taalkeuze = "nl"
  9.   end if
  10.   if tekstkleur = VOID then
  11.     sprite(spriteNum).member.foreColor = 235
  12.   else
  13.     sprite(spriteNum).member.foreColor = tekstkleur
  14.   end if
  15.   pWoordenlijst = []
  16.   woordenteller = 1
  17.   tekstpad = "@txt:" & taalkeuze & ":"
  18.   fieldnaam = sprite(spriteNum).member.name
  19.   bestandnaam = fieldnaam & ".txt"
  20.   buffer = new(xtra("fileio"))
  21.   openFile(buffer, tekstpad & bestandnaam, 1)
  22.   setPosition(buffer, 0)
  23.   bufferinhoud = readFile(buffer)
  24.   closeFile(buffer)
  25.   put bufferinhoud into member fieldnaam
  26.   repeat with tellertje = 1 to member(fieldnaam).text.length
  27.     if member(fieldnaam).char[tellertje] = numToChar(10) then
  28.       member(fieldnaam).char[tellertje] = EMPTY
  29.     end if
  30.     if member(fieldnaam).char[tellertje].charToNum > 127 then
  31.       if the platform contains "Mac" then
  32.         put numToChar(maclist[member(fieldnaam).char[tellertje].charToNum - 127]) into (member fieldnaam).char[tellertje]
  33.       end if
  34.     end if
  35.     if member(fieldnaam).char[tellertje] = numToChar(32) then
  36.       woordenteller = woordenteller + 1
  37.     end if
  38.     if member(fieldnaam).char[tellertje] = "#" then
  39.       put EMPTY into (member fieldnaam).char[tellertje]
  40.       invoercharacter = EMPTY
  41.       linkbeschrijving = EMPTY
  42.       repeat while invoercharacter <> "|"
  43.         invoercharacter = member(fieldnaam).char[tellertje]
  44.         linkbeschrijving = linkbeschrijving & invoercharacter
  45.         put EMPTY into (member fieldnaam).char[tellertje]
  46.       end repeat
  47.       put EMPTY into linkbeschrijving.char[the length of linkbeschrijving]
  48.       startselectie = tellertje + 2
  49.       repeat while invoercharacter <> "#"
  50.         tellertje = tellertje + 1
  51.         invoercharacter = member(fieldnaam).char[tellertje]
  52.         if member(fieldnaam).char[tellertje] = numToChar(10) then
  53.           member(fieldnaam).char[tellertje] = EMPTY
  54.         end if
  55.         if member(fieldnaam).char[tellertje] = numToChar(32) then
  56.           woordenteller = woordenteller + 1
  57.         end if
  58.       end repeat
  59.       eindeselectie = tellertje - 1
  60.       put EMPTY into (member fieldnaam).char[tellertje]
  61.       link(me, startselectie, eindeselectie, linkbeschrijving, fieldnaam)
  62.     end if
  63.   end repeat
  64.   repeat with i = 1 to pWoordenlijst.count
  65.     if pWoordenlijst[i] <> 0 then
  66.       set the foreColor of word i of member fieldnaam to 214
  67.     end if
  68.   end repeat
  69.   member(sprite(spriteNum).member).boxType = #fixed
  70.   sprite(spriteNum).quad = [point(335, 34), point(474, 34), point(474, 383), point(335, 383)]
  71.   sprite(spriteNum).visibility = 1
  72. end
  73.  
  74. on link me, start, eind, linkbeschrijving, fieldnaam
  75.   tijdelijkpunt = member(fieldnaam).charPosToLoc(start)
  76.   tijdelijkpunt.locH = tijdelijkpunt.locH + sprite(spriteNum).left
  77.   tijdelijkpunt.locV = tijdelijkpunt.locV + sprite(spriteNum).top
  78.   startwoord = sprite(spriteNum).pointToWord(tijdelijkpunt)
  79.   tijdelijkpunt = member(fieldnaam).charPosToLoc(eind)
  80.   tijdelijkpunt.locH = tijdelijkpunt.locH + sprite(spriteNum).left
  81.   tijdelijkpunt.locV = tijdelijkpunt.locV + sprite(spriteNum).top
  82.   eindwoord = sprite(spriteNum).pointToWord(tijdelijkpunt)
  83.   repeat with woord = startwoord to eindwoord
  84.     pWoordenlijst.addAt(woord, linkbeschrijving)
  85.   end repeat
  86. end
  87.  
  88. on mouseWithin me
  89.   staticmouseword = the mouseWord
  90.   if (staticmouseword <= pWoordenlijst.count) and (staticmouseword > 0) then
  91.     if pWoordenlijst[staticmouseword] <> 0 then
  92.       cursor(280)
  93.     else
  94.       cursor(-1)
  95.     end if
  96.   end if
  97. end
  98.  
  99. on mouseLeave me
  100.   cursor(-1)
  101. end
  102.  
  103. on mouseUp me
  104.   global naam
  105.   staticmouseword = the mouseWord
  106.   put the mouseWord
  107.   if (staticmouseword <= pWoordenlijst.count) and (staticmouseword > 0) then
  108.     if pWoordenlijst[staticmouseword] <> 0 then
  109.       if pWoordenlijst[staticmouseword].char[1] = "@" then
  110.         naam = pWoordenlijst[staticmouseword]
  111.         put EMPTY into naam.char[1]
  112.         tell the stage
  113.           wisseltje()
  114.         end tell
  115.       else
  116.         put pWoordenlijst[staticmouseword]
  117.         do(pWoordenlijst[staticmouseword])
  118.       end if
  119.     end if
  120.   end if
  121. end
  122.